1 REM BORDER COLOR CHANGES:
2 REM POKE 4355,1 TO DISABLE                  POKE 4355,0 TO ENABLE
3 POKE53281,00:POKE53280,11:PRINT"[147]"CHR$(142)
4 PRINT"[149]","[157][157][157][157][164][164][164][164][164][164][164][164][164][164][164] [152][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][149]"
5 PRINT,"[157][157][157][157][165][154]BOZ/WAYNE[149][167] [158][182]JJ/GG SLIDESHOW[146][181]"
6 PRINT,"[149][157][157][157][157][163][163][163][163][163][163][163][163][163][163][163] [152][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][151]"
7 PRINT"     BUTTERFIELD/ONDA/ZAMARA/SCHMIDT"
8 PRINT,,"[157][157][157][157]JAN 1987"
9 GOSUB58
10 POKE56,90:CLR
11 SYS3916
12 PRINT"[152]            LOADING DIRECTORY [153]"
13 PRINT,"[157][157]PRESS <SHIFT/LOCK> NOW FOR"
14 PRINT,"  CONTINUOUS DISPLAY"
15 A$="ABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCD
16 A$[178]A$[170]A$[170]A$[170]"ABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQAB"
17 [134]NM$(40)
18 F[178]0:T[178]18:S[178]1:[159]15,8,15:[159]1,8,2,"#"
19 [152]15,"U1:"2;0;T;S
20 [158]896
21 T[178][198]([200](A$,1)):S[178][198]([202](A$,2,1))
22 [129]I[178]1[164]8:P[178]16
23 TY[178](([198]([202](A$,I[172]32[171]32[170]3,1))[175]131)[171]128)[175]3:[139]TY[179][177]2[167]30
24 [139][200](([202](A$,I[172]32[171]32[170]6,P)),2)[178]"JJ"[167]27
25 [139][200](([202](A$,I[172]32[171]32[170]6,P)),2)[178]"GG"[167]27
26 [137]30
27 [139][201](([202](A$,I[172]32[171]32[170]6,P)),1)[178][199](160)[167]P[178]P[171]1:[137]27
28 NM$(F)[178]([202](A$,I[172]32[171]32[170]6,P))
29 F[178]F[170]1
30 [130]I:[139]T[178]18[167]19
31 F[178]F[171]1:[160]1:[160]15:Z[178][184](0)
32 [139]F$[179][177]""[167]37
33 [153]"     USING FASTLOAD OR SIMILARPOKE[CONTYVERIFY-CONTNPOKE]PRINT?"
34 [146]198,1:[161]F$
35 [139]F$[178]"(null)"[167]F$[178]"Y
36 FL=(ABS(F$="Y"))*2000
37 FORI=0TOF
38 OPEN15,8,15
39 KL=LEN(NM$(I)):POKE583,KL:FORK=1TOKL:POKE(584+K),ASC(MID$(NM$(I),K,255))
40 NEXT
41 IFLEFT$(NM$(I),2)="JJ"THENSYS3922:SYS3925
42 IFLEFT$(NM$(I),2)="GG"THENSYS3922:SYS3928
43 GOSUB53
44 FORJ=1TOFL:NEXT:NEXT
45 IFPEEK(653)THEN37
46 WAIT198,1:GETP$
47 PRINT"[147]":SYS3919
48 PRINT"[153]"," DISPLAY SAME [146] (Y/N)?"
49 WAIT198,1:GETP$:IFP$="Y"THEN37
50 PRINT""," ANOTHER DISK [146] (Y/N)?[152]":PRINT"    INSERT NEW ";
51 PRINT"DISK BEFORE ANSWERING[153]":WAIT198,1:GETP$:IFP$="Y"THEN18
52 END
53 INPUT#15,E,E$,E1,E2
54 IFE=0THENCLOSE15:RETURN
55 PRINT" DISK ERROR ":PRINT" "E$" ":PRINT" PRESS A KEY[145][145][145]"
56 CLOSE15:SYS3919:WAIT198,1:GETP$:RETURN
57 END
58 FORI=896TO933:READJ:POKEI,J:NEXTI
59 RETURN
60 DATA 160,2,177,45,153,137,.,200,192,6,208,246,162,1,32,198,255,32,228,255
61 DATA 164,142,145,140,200,240,8,234,234,132,142,196,139,208,238,76,204,255